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DEFINE BLK (A.B) 
<JOBPROrR 

A = 

ENTRY A 

DEFINE BLK (C,D) 

<C=JOBPR0 

JOBPRO=JOBPRO+D 

ENTRY C>> 

BLK JOBAC»20 
BLK JOBDAC,20 

JOBDHUJOBDAC + 17 ;HIGHEST 

BLK J0BUU0,1 
BLK J0B41.1 
BLK JOBPCl 
BLK JOBPDP.l 

JOBPRTsJOBPDP 

J0BPR1=J08PRT+1 

BLK JOBREL.l 
BLK JOBUXT.l 
BLK J0BLEV,1 
BLK JOBSAV.l 
BLK JOBPOV.l 
BLK JOBTEM.l 
BLK JOBTMl.l 
BLK JOBINF.l 
BLK JOBJDA,20 
BLK J0BDDT,1 

J08PFI=J0BDDT-1 

JOBPFU=JOBDDT 

BLK J0BCDP,1 
BLK JOBTRP,20 
BLK J0BSYM,1 
BLK JOBUSY.l 
BLK JOBSA.l 



.•SYSTEM USE AC STORAGE 

;USER'S AC STORAGE WHILE JOB IS INACTIV 
AC SAVED WHILE INACTIVE 
;UUO SAVE AND TRAP LOCATIONS 
;UUO JSR LOCATION 
;BITS 0-5=APR FLAGS, C(RH)=PC 
;PUSH DOWN POINTER FOR SYSTEM USE 
;FIRST LOC PROTECTED FROM INTERRUPT SER 
.-FIRST LOC + 1 

;C(LH)=0, C(RH)=RELOCATION ADDRESS 
.•EXIT FROM UUO AT BREAK 
;C(40) WHEN INACTIVE 
;TEMPROARY STORAGE FOR UOO HANDLER 
;PUSH DOWN OVERFLOW TRAP 
;(UNUSEO)TEMPORARY SYSTEM STORAGE 



ASSIGNMENTS 



JOBFF.l 



{LENGTH OF 



BLK 
JOBDAT=140 
J0BHGH=J0BDAT-1 
J0BPDL=J08PR0-1 
J0BPD1=J0BPDL+1 
MJ0BP0=J0BP0L-J0BHGH 
J0BS41=J08PR0 
J0BDA=J0BDAT 

ENTRY J0BPFI,J0BPFU,J0BPDL,J0BPR0.MJ08PD,J0BHGH 
J0BDHI,J0BPRT.J0BPR1,J0BDA,J0BS41.J0BPD1 

END, 



;UNUSED 

JJOB 10 DEVICE CHANNEL 

JADDRESS OF USER'S DDT 

;LAST LOC PROTECTED FROM 10 SERVICE 

;LAST LOC PROTECTED FROM USER 

;(UNUSED)POINTER TO COMMAND STRING 

;(UNUSED)TRAP LOCATIONS 

.•SYMBOL TABLE POINTER 

;(UNUSED)POINTER TO UNDEFINED SYMBOL 

.•C(RH)=STARTING ADDRESS 

;C(LH)=HIGHEST LOCATION USED 

;first free location 
job data area 

{highest loc in job data area 
{first loc. -1 of pd list 
{first loc. in pd list 
{- length of pd list 

{PLACE WAHERE SAVE-GET SAVES USER LOC 



TA 



ENTRY 



THFRE ARE NO ERRORS 
PROGRAM BREAK IS 000000 



JORDAT - JOB DATA ARFA ASSIGNMENTS 
SYMROL TABLE 
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J0R41 


000041 


INT 


JOBAC 


000000 


TNT 


JORCDP 


000075 


INT 


JOBDA 


000140 


INT 


JORDAC 


000020 


INT 


JORDAT 


000140 




JORDDT 


000074 


INT 


JORDHI 


000037 


INT 


JORFF 


000121 


INT 


JORHGH 


000137 


INT 


JOBINF 


000053 


INT 


JORJDA 


000054 


INT 


JORLEV 


000046 


INT 


JORPC 


000042 


INT 


JORPOl 


000122 


INT 


JORPDL 


000121 


INT 


JORPDP 


000043 


INT 


JORPFI 


000073 


INT 


JORPFU 


000074 


INT 


JOBPOV 


000050 


INT 


JORPRl 


000044 


INT 


JORPRO 


000122 


INT 


JORPRT 


000043 


INT 


JORREL 


000044 


INT 


J0RS41 


000122 


INT 


JORSA 


000120 


INT 


JORSAV 


000047 


INT 


JORSYM 


000116 


INT 


JORTEM 


000051 


INT 


JORTMl 


000052 


INT 


JORTRP 


000076 


INT 


JORUSY 


000117 


INT 


JORUUO 


000040 


INT 


JORUXT 


000045 


INT 


MJOBPD 


777777777762 


INT 



END OF ASSEMBLY 



